﻿Public Class Ppersona
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'txtleg.Focus()
        llenarcombolocalidad()
        Me.WindowState = FormWindowState.Maximized
       
    End Sub

    Protected Sub btnguardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnguardar.Click
        



        If radiocliente.Checked = True Then
            'validarcliente()
            Dim oclientesNegocios As New Negocio.Ncliente
            Dim oCliente As New Entidades.Ecliente
            Dim ogarantesNegocios As New Negocio.Ngarante
            Dim oGarante As New Entidades.Egarante

            oCliente.dnipers = (txtdoc.Text)
            oCliente.nomyapepers = (txtnomyape.Text)
            oCliente.edadpers = (txtedad.Text)
            oCliente.fechanacpers = (txtfecha.Text)
            oCliente.dompers = (txtdom.Text)
            oCliente.tel1pers = (txttel1.Text)
            oCliente.tel1pers = (txttel2.Text)
            oCliente.emailpers = (txtemail.Text)
            oCliente.recsueldocli = (txtrecibo.Text)
            oCliente.grupofamcli = (txtgrupo.Text)
            oCliente.codlocpers = Me.cmblocalidad.SelectedValue

            Try

                oclientesNegocios.cargarCliente(oCliente)
                MsgBox("Carga Exitosa de cliente.", MsgBoxStyle.Information)


                oGarante.nomyapepers = txtnomyapega.Text
                oGarante.edadpers = (txtedadga.Text)
                oGarante.dnipers = (txtdniga.Text)
                oGarante.fechanacpers = (txtfechanacga.Text)
                oGarante.dompers = (txtdomga.Text)
                oGarante.recibogarante = (txtresuga.Text)
                oGarante.codlocpers = Me.cmblocalidadga.SelectedValue
                oGarante.tel1pers = (txttel1ga.Text)
                oGarante.tel2pers = (txttel2ga.Text)
                oGarante.clientega = (txtnomyape.Text)
                oGarante.emailpers = (txtemailga.Text)


                ogarantesNegocios.cargarGarante(oGarante)
                MsgBox("Carga Exitosa de garante", MsgBoxStyle.Information)


            Catch ex As Exception
                MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
            End Try


            txtnomyape.Text = ""
            txtnomyapega.Text = ""
            txtedad.Text = ""
            txtedadga.Text = ""
            txtdniga.Text = ""
            txtdoc.Text = ""
            txtdom.Text = ""
            txtdomga.Text = ""
            txttel1.Text = ""
            txttel1ga.Text = ""
            txttel2.Text = ""
            txttel2ga.Text = ""
            txtfecha.Text = ""
            txtfechanacga.Text = ""
            txtemail.Text = ""
            txtemailga.Text = ""
            txtrecibo.Text = ""
            txtgrupo.Text = ""
            txtresuga.Text = ""


        Else
            If radiopropietario.Checked = True Then
                Dim opropietarioNegocios As New Negocio.NPropietario
                Dim oPropieatario As New Entidades.Epropietario


                oPropieatario.dnipers = UCase(txtdoc.Text)
                oPropieatario.nomyapepers = UCase(txtnomyape.Text)
                oPropieatario.edadpers = UCase(txtedad.Text)
                oPropieatario.fechanacpers = UCase(txtfecha.Text)
                oPropieatario.dompers = UCase(txtdom.Text)
                oPropieatario.tel1pers = UCase(txttel1.Text)
                oPropieatario.tel2pers = UCase(txttel2.Text)
                oPropieatario.emailpers = UCase(txtemail.Text)
                oPropieatario.codlocpers = Me.cmblocalidad.SelectedValue
                oPropieatario.formapago = UCase(txtpago.Text)

                Try
                    If opropietarioNegocios.cargarPropietario(oPropieatario) Then
                        MsgBox("Carga Exitosa del propietario.", MsgBoxStyle.Information)
                    End If

                Catch ex As Exception
                    MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
                End Try

                txtnomyape.Text = ""
                txtedad.Text = ""
                txtdoc.Text = ""
                txtdom.Text = ""
                txttel1.Text = ""
                txttel2.Text = ""
                txtfecha.Text = ""
                txtemail.Text = ""
                txtpago.Text = ""

            Else
                If radiocomprador.Checked = True Then

                    Dim oCompradorNegocios As New Negocio.NComprador
                    Dim oComprador As New Entidades.Ecomprador


                    oComprador.dnipers = UCase(txtdoc.Text)
                    oComprador.nomyapepers = UCase(txtnomyape.Text)
                    oComprador.edadpers = UCase(txtedad.Text)
                    oComprador.fechanacpers = UCase(txtfecha.Text)
                    oComprador.dompers = UCase(txtdom.Text)
                    oComprador.tel1pers = UCase(txttel1.Text)
                    oComprador.tel2pers = UCase(txttel2.Text)
                    oComprador.emailpers = UCase(txtemail.Text)
                    oComprador.codlocpers = Me.cmblocalidad.SelectedValue
                    oComprador.tipopagocompra = UCase(txtpago.Text)

                    Try
                        If oCompradorNegocios.cargarComprador(oComprador) Then
                            MsgBox("Carga Exitosa del comprador.", MsgBoxStyle.Information)
                        End If

                    Catch ex As Exception
                        MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
                    End Try
                    txtnomyape.Text = ""
                    txtedad.Text = ""
                    txtdoc.Text = ""
                    txtdom.Text = ""
                    txttel1.Text = ""
                    txttel2.Text = ""
                    txtfecha.Text = ""
                    txtemail.Text = ""
                    txtpago.Text = ""

                End If
            End If
        End If



    End Sub

    Protected Sub llenarcombolocalidad()
        Dim oInternoNegocios As New Negocio.Ncliente

        cmblocalidad.DisplayMember = "nombre"
        cmblocalidad.ValueMember = "cod_localidad"
        cmblocalidad.DataSource = oInternoNegocios.comboloc
        cmblocalidadga.DisplayMember = "nombre"
        cmblocalidadga.ValueMember = "cod_localidad"
        cmblocalidadga.DataSource = oInternoNegocios.comboloc



    End Sub

    'Private Sub validarcliente()
    '    If Not IsNumeric(txtleg.Text) Then
    '        MsgBox("Debe ingresar un legajo de la persona", MsgBoxStyle.DefaultButton1)
    '        Exit Sub
    '        txtleg.Focus()
    '    End If
    '    If Not IsNumeric(txtdoc.Text) Then
    '        MsgBox("Debe ingresar un número de dni", MsgBoxStyle.DefaultButton1)
    '        Exit Sub
    '        txtdoc.Focus()
    '    End If
    '    If (Len(txtnomyape.Text) = 0) Then
    '        MsgBox("EL Nombre y Apellido de la persona es obligatorio", MsgBoxStyle.Exclamation)
    '        Exit Sub
    '        txtnomyape.Focus()
    '    End If
    '    If (Len(txtedad.Text) = 0) Then
    '        MsgBox("La edad de la persona es obligatorio", MsgBoxStyle.Exclamation)
    '        Exit Sub
    '        txtedad.Focus()
    '    End If

    '    If (Len(txtfecha.Text) = 0) Then
    '        MsgBox("Debe ingresar la fecha de nacimiento", MsgBoxStyle.Exclamation)
    '        Exit Sub
    '        txtfecha.Focus()
    '    End If
    '    If (Len(txtdom.Text) = 0) Then
    '        MsgBox("Debe ingresar el domicilio de la persona", MsgBoxStyle.Exclamation)
    '        Exit Sub
    '        txtdom.Focus()
    '    End If
    '    If (Len(txttel1.Text) = 0) Then
    '        MsgBox("Debe ingresar el telefono 1 de la persona", MsgBoxStyle.DefaultButton1)
    '        Exit Sub
    '        txttel1.Focus()
    '    End If
    '    If (Len(txttel2.Text) = 0) Then
    '        MsgBox("Debe ingresar el telefono 2 de la persona", MsgBoxStyle.DefaultButton1)
    '        Exit Sub
    '        txttel2.Focus()
    '    End If
    '    If (Len(txtemail.Text) = 0) Then
    '        MsgBox("Debe ingresar el email de la persona", MsgBoxStyle.Exclamation)
    '        Exit Sub
    '        txtemail.Focus()
    '    End If
    '    If Not IsNumeric(txtrecibo.Text) Then
    '        MsgBox("Debe ingresar el sueldo del cliente", MsgBoxStyle.DefaultButton1)
    '        Exit Sub
    '        txtrecibo.Focus()
    '    End If
    '    If Not IsNumeric(txtgrupo.Text) Then
    '        MsgBox("Debe ingresar el numero de personas del grupo familiar", MsgBoxStyle.DefaultButton1)
    '        Exit Sub
    '        txtgrupo.Focus()
    '    End If
    'End Sub
    Private Sub radiocliente_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiocliente.CheckedChanged

        txtpago.Enabled = False
        lblpago.Visible = False
        txtrecibo.Enabled = True
        lblrecibo.Visible = True
        txtgrupo.Enabled = True
        lblgrupo.Visible = True
        gbgarante.Enabled = True

    End Sub

    Private Sub radiopropietario_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiopropietario.CheckedChanged
        txtpago.Enabled = True
        lblpago.Visible = True
        txtrecibo.Enabled = False
        lblrecibo.Visible = False
        txtgrupo.Enabled = False
        lblgrupo.Visible = False
        gbgarante.Enabled = False
    End Sub

    Private Sub radiocomprador_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiocomprador.CheckedChanged
        txtrecibo.Enabled = False
        lblrecibo.Visible = False
        txtgrupo.Enabled = False
        lblgrupo.Visible = False
        txtpago.Enabled = True
        lblpago.Visible = True
        gbgarante.Enabled = False
    End Sub

   
    Private Sub btncancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click
        txtnomyape.Text = ""
        txtnomyapega.Text = ""
        txtedad.Text = ""
        txtedadga.Text = ""
        txtdniga.Text = ""
        txtdoc.Text = ""
        txtdom.Text = ""
        txtdomga.Text = ""
        txttel1.Text = ""
        txttel1ga.Text = ""
        txttel2.Text = ""
        txttel2ga.Text = ""
        txtfecha.Text = ""
        txtfechanacga.Text = ""
        txtemail.Text = ""
        txtemailga.Text = ""
        txtrecibo.Text = ""
        txtgrupo.Text = ""
        txtresuga.Text = ""
    End Sub
End Class
